home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
pcv05n12.zip
/
AMIPRO.TXT
next >
Wrap
Text File
|
1993-06-10
|
581b
|
27 lines
Function Main()
If Save() < 1
SaveAs
EndIf
fName=GetOpenFileName$()
If fName="" Then
Exit Function
EndIf
If Not AppIsRunning("Lotus Notes")
Test=Exec ("C:\Notes\_BNotes.EXE","",2 )
If Test<32 Then
Message("Unable to start Notes")
Exit Function
EndIf
EndIf
Channel = DDEInitiate("Notes", "SendMail")
If Channel Then
DDEExecute( Channel, "NewMessage")
DDEExecute(Channel, STRCAT$("AttachFile ", fName))
DDEExecute( Channel, "SEND")
DDETerminate( Channel)
Else
Message ("Unable to establish link to Notes!")
Exit Function
EndIf
End Function